home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Imitatio Christi / card_38735.txt < prev    next >
Text File  |  1992-02-09  |  3KB  |  169 lines
  1. -- card: 38735 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2614
  5. -- name: clois
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global ICCard
  9.   cleanScreen
  10.   put long name of this cd into ICCard
  11.   set lockmessages to true
  12.   FirstCardScript
  13. end opencard
  14.  
  15. on closeCard
  16.   play stop
  17.   get MaxApplZone ("Compact")
  18. end closeCard
  19.  
  20. on mouseDown
  21.   -- Bomb Shelter?
  22. end mouseDown
  23.  
  24.  
  25. -- part 27 (button)
  26. -- low flags: 00
  27. -- high flags: 0000
  28. -- rect: left=92 top=263 right=342 bottom=323
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: cloister book
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   cleanScreen
  40.   set cursor to 3
  41.   visual zoom out fast
  42.   go second cd
  43. end mouseUp
  44.  
  45.  
  46. -- part 28 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=344 top=295 right=342 bottom=464
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: GoJournal
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   --cleanScreen
  61.   set cursor to 3
  62.   visual zoom out
  63.   go stack "Journal"
  64.   if result() is empty then
  65.   else
  66.     beep
  67.     openCard
  68.   end if
  69. end mouseUp
  70.  
  71.  
  72. -- part 31 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=322 top=264 right=289 bottom=336
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: cloister book2
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   cleanScreen
  87.   set cursor to 3
  88.   visual zoom out
  89.   go last cd
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 34 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=0 top=221 right=278 bottom=25
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 17779 / 17779
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: To Library
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   cleanScreen
  109.   set cursor to 3
  110.   visual wipe right
  111.   go stack "Library"
  112.   if result() is empty then
  113.   else
  114.     beep
  115.     openCard
  116.   end if
  117. end mouseUp
  118.  
  119. on mouseDown
  120. end mouseDown
  121.  
  122.  
  123. -- part 35 (button)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=468 top=0 right=153 bottom=512
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Passing Notes
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   cleanScreen
  138.   set cursor to 3
  139.   set lockmessages to true
  140.   visual zoom out
  141.   go cd "conclusion" of stack "Passing Notes"
  142.   if the result is empty then
  143.     show cd btn "cloister"
  144.   else
  145.     beep
  146.     openCard
  147.   end if
  148. end mouseUp
  149.  
  150.  
  151. -- part 40 (button)
  152. -- low flags: 00
  153. -- high flags: 8000
  154. -- rect: left=26 top=221 right=279 bottom=43
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: ?
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   cleanScreen
  166.   set cursor to 3
  167.   send cloisterHelp to cd btn "Help" of cd "Title"
  168. end mouseUp
  169.